home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / txtedtrs / marcel23 / prolog.ps < prev    next >
Text File  |  1995-05-02  |  3KB  |  87 lines
  1. %!PS-Adobe-2.0
  2. /Mardict 12 dict def
  3. /mkMardict {
  4.     Mardict begin
  5.     /newjunk exch def
  6.     /newfontname exch def
  7.     /basefontname exch def
  8.     /basefontdict basefontname findfont def 
  9.     /newfont basefontdict maxlength dict def
  10.     basefontdict
  11.     { 
  12.         exch dup /FID ne 
  13.         { 
  14.             dup /Encoding eq
  15.             { 
  16.                 exch dup length array copy
  17.                 newfont 3 1 roll put 
  18.                 }
  19.             { 
  20.                 exch newfont 3 1 roll put 
  21.             } ifelse
  22.         }
  23.         { 
  24.             pop pop 
  25.             } ifelse
  26.         } forall
  27.     newfont /FontName newfontname put
  28.     newjunk aload pop
  29.  
  30.     newjunk length 2 idiv
  31.         { 
  32.             newfont /Encoding get 3 1 roll put 
  33.             } repeat
  34.     
  35.     newfontname newfont definefont pop
  36. end
  37. } def
  38. /marcelvec [
  39. 8#200 /Ccedilla 8#201 /udieresis 8#202 /eacute 8#203 /acircumflex
  40. 8#204 /adieresis 8#205 /agrave 8#206 /aring 8#207 /ccedilla
  41. 8#210 /ecircumflex 8#211 /edieresis 8#212 /egrave 8#213 /idieresis
  42. 8#214 /icircumflex 8#215 /igrave 8#216 /Adieresis 8#217 /Aring
  43. 8#220 /Eacute 8#221 /ae 8#222 /AE 8#223 /ocircumflex
  44. 8#224 /odieresis 8#225 /ograve 8#226 /ucircumflex 8#227 /ugrave
  45. 8#230 /ydieresis 8#231 /Odieresis 8#232 /Udieresis 8#233 /cent
  46. 8#234 /sterling 8#235 /yen 8#236 /germandbls 8#237 /florin 
  47. 8#240 /aacute 8#241 /iacute 8#242 /oacute 8#243 /uacute 
  48. 8#244 /ntilde 8#245 /Ntilde 8#246 /ordfeminine 8#247 /ordmasculine
  49. 8#250 /questiondown 8#255 /exclamdown 8#256 /guillemotleft 8#257 /guillemotright
  50. 8#260 /atilde 8#261 /otilde 8#262 /Oslash 8#263 /oslash
  51. 8#264 /oe 8#265 /OE 8#266 /Agrave 8#267 /Atilde
  52. 8#270 /Otilde 8#273 /dagger 8#274 /paragraph 8#275 /copyright
  53. 8#276 /register 8#277 /trademark 8#310 /emdash 8#335 /section
  54. 8#337 /infinity 8#340 /aleph 8#344 /summation 8#360 /equivalence
  55. 8#361 /plusminus 8#362 /greaterequal 8#363 /lessequal 8#367 /approxequal
  56. 8#370 /degree 8#372 /bullet
  57. ] def
  58. /leftmarg 90 def   % initial val.
  59. /newpage
  60.     { showpage 
  61.     /vpos 780 def  % 1st line
  62.     leftmarg vpos moveto  % top/left 1-1/4 inch margin
  63.     } def
  64. /vpos 780 def
  65. leftmarg vpos moveto  % 1st line of first page
  66. /selfont
  67.     { findfont ptsize scalefont setfont } def
  68.  
  69. /newline
  70.     { show /vpos vpos 12 sub def
  71.         leftmarg vpos moveto } def
  72. /cpt { currentpoint } def   % alias
  73. %  non-font-related style procedures
  74. %    underline
  75. /ulon { cpt 2 sub /uy exch def /ux exch def } def
  76. /uloff { 0.1 setlinewidth cpt /hy exch def /hx exch def 
  77.     newpath hx hy 2 sub moveto ux uy lineto stroke hx hy moveto } def
  78. %    sub/super
  79. /subon { cpt ptsize 3 div sub moveto    % down third of char height
  80.     cpt /vpos exch def }  def     % reset vpos
  81. /suboff { cpt ptsize 3 div add moveto    % up third of char height
  82.     cpt /vpos exch def }  def    % reset vpos
  83. /supon { cpt ptsize 3 div add moveto    % up third of char height
  84.     cpt /vpos exch def }  def    % reset vpos
  85. /supoff { cpt ptsize 3 div sub moveto    % down third of char height
  86.     cpt /vpos exch def }  def    % reset vpos
  87. %%  End static Marcel prolog